home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / DTMedia / HyperAnimation / HyperAnimation Demo / HyperAnimation Demo / card_13654.txt < prev    next >
Encoding:
Text File  |  1990-04-09  |  2.3 KB  |  116 lines
  1. -- card: 13654 from stack: in
  2. -- bmap block id: 13878
  3. -- flags: 0000
  4. -- background id: 12523
  5. -- name: typeText
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global idletime
  9.   set userModify to true
  10.   put empty into card field "typeText"
  11.   click at the topLeft of card field "typeText"
  12.   put the ticks into idletime
  13. end openCard
  14.  
  15. on closeCard
  16.   visual effect dissolve
  17.   put empty into card field "typeText"
  18. end closeCard
  19.  
  20. on idle
  21.   global idlewait, idletime
  22.  
  23.   get the ticks
  24.   if it - idletime > idlewait then
  25.     if cd fld 1 is empty then
  26.       put "Welcome to the Show" into cd fld 1
  27.     end if
  28.     speakField
  29.   else pass idle
  30. end idle
  31.  
  32. on speakField
  33.   global actorFlag
  34.   global idletime
  35.  
  36.   RAVE "{SPEED 170}"
  37.   RAVE "{PITCH 150}"
  38.   put card field 1 into temp
  39.   go card "typeText2"
  40.   put temp into card field "temp"
  41.   if actorFlag is false then
  42.     RAVE "{ACTOR lilJonathan at 192,36}"
  43.     put true into actorFlag
  44.   end if
  45.   RAVE "{SHOW lilJonathan}"
  46.   RAVE card field "temp"
  47.   do card field "pretty" of card "BigJ"
  48.   wait 5
  49.   RAVE "{EXPRESS A5}"  -- smile
  50.   wait 1 second
  51.   do card field "thank" of card "BigJ"
  52.   wait 20
  53.   do card field "would" of card "BigJ"
  54.   go to card "typetext3"
  55.   put the ticks into idletime
  56. end speakField
  57.  
  58.  
  59.  
  60.  
  61. -- part 1 (field)
  62. -- low flags: 00
  63. -- high flags: 2002
  64. -- rect: left=63 top=159 right=259 bottom=444
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 0
  68. -- font id: 33
  69. -- text size: 18
  70. -- style flags: 256
  71. -- line height: 24
  72. -- part name: typeText
  73. ----- HyperTalk script -----
  74. on returnInField
  75.   speakField
  76. end returnInField
  77.  
  78.  
  79.  
  80. -- part 4 (field)
  81. -- low flags: 80
  82. -- high flags: 0001
  83. -- rect: left=57 top=50 right=275 bottom=462
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 3
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: cannedSpeech
  92.  
  93.  
  94. -- part 5 (button)
  95. -- low flags: 80
  96. -- high flags: 8003
  97. -- rect: left=100 top=282 right=333 bottom=425
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Hide Canned Speech
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   hide card field "cannedSpeech"
  109.   hide me
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part contents for card part 4
  115. ----- text -----
  116. Welcome to the Macworld Expo.